home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / progr / svga.arj / SVGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-27  |  1013 b   |  51 lines
  1. Program prueba_SVGA;
  2.  
  3. uses Graph;
  4.  
  5. var
  6.   Driver, Mode,
  7.   TestDriver,
  8.   ErrCode: Integer;
  9.   DriverF: file;
  10.   DriverP: pointer;
  11.   dd,td : string;
  12. begin
  13.   Writeln('(c) Ultra-Max 1993');
  14.   Assign(DriverF, 'c:\pascal\tp\bgi\svga256.bgi');
  15.   Reset(DriverF, 1);
  16.   GetMem(DriverP, FileSize(DriverF));
  17.   Close(DriverF);
  18.   TestDriver:=InstallUserDriver('svga256',nil);
  19.   Writeln(testdriver);
  20.   readln;
  21.   if GraphResult <> grOk then
  22.   begin
  23.     Writeln('Error instalando el controlador.');
  24.     Halt(1);
  25.   end;
  26.   RegisterBgiDriver(DriverP);
  27.   Driver:=Detect;
  28.   mode:=3;
  29.   InitGraph(testDriver, Mode, 'c:\pascal\tp\bgi');
  30.   setbkcolor(6);
  31.   cleardevice;
  32.   setcolor(7);
  33.   str(driver,dd);
  34.   str(testdriver,td);
  35.   outText(dd);
  36.   readln;
  37.   outText(td);
  38.   Readln;
  39.   ErrCode := GraphResult;
  40.   if ErrCode <> grOk then
  41.   begin
  42.     Writeln('Error inicializando: ',ErrCode);
  43.     Halt(1);
  44.   end;
  45.   OutText('Controlador Instalado...');
  46.   circle(100,100,50);
  47.   Readln;
  48.   CloseGraph;
  49. end.
  50.  
  51.